Attribute VB_Name = "modResource"
Option Explicit

Public Sub LoadImages()

    frmMain.picTemp.Picture = LoadResPicture("pieces", vbResBitmap)

    With frmMain
        BitBlt .picPieces1(0).hdc, 0, 0, 4 * STEP, STEP, .picTemp.hdc, 0, 0, vbSrcCopy
        BitBlt .picPieces1(1).hdc, 0, 0, 2 * STEP, 2 * STEP, .picTemp.hdc, 4 * STEP, 0, vbSrcCopy
        BitBlt .picPieces1(2).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 6 * STEP, 0, vbSrcCopy
        BitBlt .picPieces1(3).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 9 * STEP, 0, vbSrcCopy
        BitBlt .picPieces1(4).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 12 * STEP, 0, vbSrcCopy
        BitBlt .picPieces1(5).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 15 * STEP, 0, vbSrcCopy
        BitBlt .picPieces1(6).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 18 * STEP, 0, vbSrcCopy

        BitBlt .picPiecesGray1(0).hdc, 0, 0, 4 * STEP, STEP, .picTemp.hdc, 0, 5 * STEP, vbSrcCopy
        BitBlt .picPiecesGray1(1).hdc, 0, 0, 2 * STEP, 2 * STEP, .picTemp.hdc, 4 * STEP, 5 * STEP, vbSrcCopy
        BitBlt .picPiecesGray1(2).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 6 * STEP, 5 * STEP, vbSrcCopy
        BitBlt .picPiecesGray1(3).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 9 * STEP, 5 * STEP, vbSrcCopy
        BitBlt .picPiecesGray1(4).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 12 * STEP, 4 * STEP, vbSrcCopy
        BitBlt .picPiecesGray1(5).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 15 * STEP, 4 * STEP, vbSrcCopy
        BitBlt .picPiecesGray1(6).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 18 * STEP, 4 * STEP, vbSrcCopy

        BitBlt .picPieces2(0).hdc, 0, 0, STEP, 4 * STEP, .picTemp.hdc, 0, STEP, vbSrcCopy
        BitBlt .picPieces2(2).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, STEP, STEP, vbSrcCopy
        BitBlt .picPieces2(3).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, 3 * STEP, 2 * STEP, vbSrcCopy
        BitBlt .picPieces2(4).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, 5 * STEP, 2 * STEP, vbSrcCopy
        BitBlt .picPieces2(5).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, 7 * STEP, 2 * STEP, vbSrcCopy
        BitBlt .picPieces2(6).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, 9 * STEP, 2 * STEP, vbSrcCopy

        BitBlt .picPiecesGray2(0).hdc, 0, 0, STEP, 4 * STEP, .picTemp.hdc, 0, 6 * STEP, vbSrcCopy
        BitBlt .picPiecesGray2(2).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, STEP, 6 * STEP, vbSrcCopy
        BitBlt .picPiecesGray2(3).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, 3 * STEP, 7 * STEP, vbSrcCopy
        BitBlt .picPiecesGray2(4).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, 5 * STEP, 7 * STEP, vbSrcCopy
        BitBlt .picPiecesGray2(5).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, 7 * STEP, 7 * STEP, vbSrcCopy
        BitBlt .picPiecesGray2(6).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, 9 * STEP, 7 * STEP, vbSrcCopy

        BitBlt .picPieces3(2).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 11 * STEP, 2 * STEP, vbSrcCopy
        BitBlt .picPieces3(3).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 14 * STEP, 2 * STEP, vbSrcCopy
        BitBlt .picPieces3(4).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 17 * STEP, 2 * STEP, vbSrcCopy

        BitBlt .picPiecesGray3(2).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 11 * STEP, 7 * STEP, vbSrcCopy
        BitBlt .picPiecesGray3(3).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 14 * STEP, 7 * STEP, vbSrcCopy
        BitBlt .picPiecesGray3(4).hdc, 0, 0, 3 * STEP, 2 * STEP, .picTemp.hdc, 17 * STEP, 7 * STEP, vbSrcCopy

        BitBlt .picPieces4(2).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, 21 * STEP, 0, vbSrcCopy
        BitBlt .picPieces4(3).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, 23 * STEP, 0, vbSrcCopy
        BitBlt .picPieces4(4).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, 25 * STEP, 0, vbSrcCopy

        BitBlt .picPiecesGray4(2).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, 20 * STEP, 6 * STEP, vbSrcCopy
        BitBlt .picPiecesGray4(3).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, 22 * STEP, 6 * STEP, vbSrcCopy
        BitBlt .picPiecesGray4(4).hdc, 0, 0, 2 * STEP, 3 * STEP, .picTemp.hdc, 24 * STEP, 6 * STEP, vbSrcCopy

        BitBlt .picDotBlack.hdc, 0, 0, STEP, STEP, .picTemp.hdc, 3 * STEP, STEP, vbSrcCopy
        BitBlt .picDot1.hdc, 0, 0, STEP, STEP, .picTemp.hdc, 11 * STEP, 4 * STEP, vbSrcCopy
        BitBlt .picDot2(0).hdc, 0, 0, 2 * STEP, STEP, .picTemp.hdc, 1 * STEP, 4 * STEP, vbSrcCopy
        BitBlt .picDot2(1).hdc, 0, 0, STEP, 2 * STEP, .picTemp.hdc, 20 * STEP, 2 * STEP, vbSrcCopy
        BitBlt .picDot3(0).hdc, 0, 0, 3 * STEP, STEP, .picTemp.hdc, 12 * STEP, 6 * STEP, vbSrcCopy
        BitBlt .picDot3(1).hdc, 0, 0, STEP, 3 * STEP, .picTemp.hdc, 21 * STEP, 3 * STEP, vbSrcCopy
        BitBlt .picDot3z(0).hdc, 0, 0, 2 * STEP, 2 * STEP, .picTemp.hdc, 22 * STEP, 3 * STEP, vbSrcCopy
        BitBlt .picDot3z(1).hdc, 0, 0, 2 * STEP, 2 * STEP, .picTemp.hdc, 24 * STEP, 3 * STEP, vbSrcCopy
        BitBlt .picDot3z(2).hdc, 0, 0, 2 * STEP, 2 * STEP, .picTemp.hdc, 26 * STEP, 3 * STEP, vbSrcCopy
        BitBlt .picDot3z(3).hdc, 0, 0, 2 * STEP, 2 * STEP, .picTemp.hdc, 26 * STEP, 5 * STEP, vbSrcCopy

        BitBlt .picClip.hdc, 0, 0, 6 * STEP, STEP, .picTemp.hdc, 11 * STEP, 9 * STEP, vbSrcCopy
    End With

    Set frmMain.picTemp = Nothing

End Sub
